ARGUMENT "Please hold on for a moment as the wizard reviews the family Web site you have made!"
SETTEMP saveParam = scriptparameter#0
LOADVARIABLES
ARGUMENT changeextension( ProjectFile "VAR" )
LOADVARIABLES
ARGUMENT modulepath( "WWDATA.VAR" )
ARGUMENT nFamilies
ARGUMENT nLoads
IF saveParam <> "NewSite"
SETTEMP nLoads = add( nLoads 1 )
SAVEVARIABLES
ARGUMENT modulepath( "WWDATA.VAR" )
ARGUMENT nLoads
ENDIF
SETTEMP ReEdit = 0
SETTEMP ReAdd = 99
GOSUB CommonInit ;in UTIL.DAT
GOSUB InitAddMem ;in NWMEMBER.DAT
GOSUB InitFavVars ;in FAVORITE.DAT
GOSUB InitNotnVars ;in NOTIONS.DAT
GOSUB InitPastimeVars ;in PASTIMES.DAT
GOSUB InitActsVars ; ACTS.DAT
GOSUB InitNewsVars
SETTEMP scriptparameter#0 = saveParam
SETTEMP callPosition = "" ;not NewSite
BUSY 0
STARTWIZARD
SETTEMP temp = 1
IF scriptparameter#0 = "NewSite"
GOSUB AllFamilyMembersEntered
IF dummy_sections > 0 || temp <> YY
SETTEMP temp2 = "You have just completed building your new site, but part of it is incomplete.\n\n"
IF temp <> YY
SETTEMP temp2 = temp2,"You did not fill out the detailed information for the family members. "
SETTEMP temp = "also "
ELSE
SETTEMP temp = ""
ENDIF
IF dummy_sections > 0
SETTEMP temp2 = temp2,"You ",temp,"left ",dummy_sections," sections of the Web site incomplete."
ENDIF
SETTEMP temp2 = temp2," Would you like to fill these missing sections in now, or wait until later?"
SETTEMP temp = 1
BACKSTOP
PAGE
WIZPIC wizpics\wizchoz3.gif
TYPE RADIOBUTTONSWITHTEXT
DESCRIPTION_RE temp2
NAME temp
ARGUMENT "&OK. We can fill them in now."@1@"\n FINISH THE MISSING\n ITEMS NOW\nChoose this item and the wizard will prompt you for the missing pieces of your family Web site.\n\nYou can still skip any of the sections for now and come back to it later."
ARGUMENT "&Wait. We can do those later."@0@"\n DO IT LATER\nChoose this item if you just want to tinker around on your own.\n\nThe wizard will ask you again the next time he comes around."
ENDIF ;dummy_secs or missing members
ENDIF
IF temp = 1
GOSUB CheckMeetFamilyComplete
IF dummy_sections > 0
TITLE Homepage Expert - Review Incomplete Sections
GOSUB CheckOtherMissingSections
ENDIF
ENDIF
TITLE Homepage Expert - Changing Site Content
;xxxxxxxxxxxxxxxx TURNAROUND POINT xxxxxxxxxxxxxxxxxx
BACKSTOP BeginAgain
SETTEMP mod_prmpt = " The ",familyLastName," Family Web Site\nNow that your family Web site is built, you can do various things with it. You can preview it to get an idea of how it looks, you can send the site to the Internet, or you can make modifications or enhancements to the site. Choose what you would like to do next."
IF allSections = 1
SETTEMP c_prmt1 = "&Add a family member to the Web site"
SETTEMP c_arg1 = " ADD ANOTHER PERSON\nThis allows you to add a new family member to your site.\n\nYou can use this to add a person or a pet!"
ELSE
SETTEMP c_prmt1 = "&Add a section to the Web site"
SETTEMP c_arg1 = " ADD A NEW SECTION\n or ANOTHER PERSON\nThis allows you to add a new section to your Web site.\n\nFor example, you could add a family news section or one of the other sections.\n\nThis is also the way to go if you want to add a new family member to your site."
ENDIF
SETTEMP c_arg1a = " MAKE CHANGES\nThis allows you to make changes to a section of the Web site that is already there.\n\nYou could change the family newsletter or replace a family favorite section.\n\nYou could also replace information for a family member or add to his personal pages."
SETTEMP c_arg2 = "\n CHANGE THE\n FAMILY PHOTO\n\nYou can supply a new family photo and the wizard will substitute it throughout the Web site."
SETTEMP c_arg3 = "PREVIEW in the BROWSER\n\nWant to see how your Web site will look on the Internet?\n\nThe wizard will create HTML files from your Web site information and then load your browser and let you see what the site will look like on the Net. The files remain on your computer."
SETTEMP c_arg4 = "\n PUBLISH THE WEB SITE\n\nAre you ready to put the ",familyLastName," family Web site out onto the Net?\n\nChoose this item to upload the files for your Web site directly to the Internet."
SETTEMP c_arg5 = "\n TRY A NEW LOOK!\nThis allows you to change the general styling of your family Web site, substituting different backgrounds and lettering for the Home Page and the main pages of your site.\n\nYou can choose from styles like 'Mean Green', 'Casual Blue' and 'Rainbow Sherbert'."
SETTEMP c_prmt1a = "&Modify a section of the Web site"
SETTEMP c_prmt2 = "&Change the family photo"
SETTEMP c_prmt3 = "Pre&view the Web site in your browser"
SETTEMP c_prmt4 = "&Upload the Web site files (Publish to the Net)"
SETTEMP c_prmt5 = "&Restyle the Web site"
IF nFamilies < 2
PAGE
WIZPIC wizpics\wizchooz.gif
NAME inpL0
TYPE RADIOBUTTONSWITHTEXT
DESCRIPTION_RE mod_prmpt
ARGUMENT c_prmt1@1@c_arg1
ARGUMENT c_prmt1a@2@c_arg1a
ARGUMENT c_prmt2@3@c_arg2
ARGUMENT c_prmt5@4@c_arg5
ARGUMENT c_prmt3@5@c_arg3
ARGUMENT c_prmt4@6@c_arg4
CLOSE
NOPREVIOUS
ELSE
PAGE
WIZPIC wizpics\wizchooz.gif
NAME inpL0
TYPE RADIOBUTTONSWITHTEXT
DESCRIPTION_RE mod_prmpt
ARGUMENT c_prmt1@1@c_arg1
ARGUMENT c_prmt1a@2@c_arg1a
ARGUMENT c_prmt2@3@c_arg2
ARGUMENT c_prmt5@4@c_arg5
ARGUMENT c_prmt3@5@c_arg3
ARGUMENT c_prmt4@6@c_arg4
ARGUMENT "&Work on a different family Web site"@7@"\n A DIFFERENT SITE\n\nSince you have created ",nFamilies," different family Web sites, this selection will let you choose a different one to work on.\n\nYou can also use this choice to start a new site."
CLOSE
NOPREVIOUS
ENDIF
IF inpL0 = 7
GOSUB SaveVariables
STOPWIZARD
RUNSCRIPT "ww.dat"
ENDIF
IF inpL0 = 4
GOSUB ChangeSiteStyle ;pick a new one
IF newStyleName <> ""
BUSY 1
ARGUMENT "Please wait a few moments as the wizard changes the styling on your site's main pages."
STYLIST newStyleName
BUSY 0
ENDIF
ENDIF
IF inpL0 = 1
IF allSections = 1
GOSUB AddNewMember
ELSE
SETTEMP method = "add"
GOSUB AddSection
ENDIF
ENDIF
IF inpL0 = 2
SETTEMP method = "make changes to"
GOSUB EditSection
ENDIF
IF inpL0 = 3
GOSUB ChangeFamilyPhoto
ENDIF
IF inpL0 = 5
BUSY 1
ARGUMENT PrevwTxt ;set in UTIL.DAT
PREVIEW
BUSY 0
ENDIF
IF inpL0 = 6
IF hasGatheredFTPInfo <> YY
SETTEMP no_skipping = YY
GOSUB ServerBegin ;ET7 ;must make sure they enter the information here
ENDIF
SETTEMP temp = "\nMAKE SURE YOU ARE CONNECTED TO THE NET!\nBefore you can publish the files to the Internet, you must have your Internet connection active. This means that you computer must be connected to the Internet through your modem.\n\nIf your computer is already connected to the Internet, press the Next button to continue. If it is not connected, they make the connection first, and then press the Next button to continue.\n\nTo activate your Internet connection, "
IF Windows95 = NN
SETTEMP temp = temp," press Alt+Tab or Ctrl+Esc to access the Windows task manager or Program manager."
ELSE
SETTEMP temp = temp," press Alt+Tab to switch to a different program or open folder or press Ctrl+Esc to bring up the Start button list."
ENDIF
SETTEMP temp = temp,"\n\nThen, you can activate your Internet connection and proceed."
BACKSTOP
PAGE
WIZPIC wizpics\wizcast2.gif
TYPE DESCRIPTION
DESCRIPTION_RE temp
BUSY 1
ARGUMENT "Before the Web site is published, the wizard must construct HTML files to use on the Internet. This could take a moment or two."
PUBLISH
BUSY 0
ENDIF ;if inpL0 = 6
UNWIND BeginAgain
;xxxxxxxxxxxxxxxxxxxxxxxxx ADD A SECTION xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
SETTEMP favoritesVarRoot = "" ;not used for family favs
SETTEMP pers_fam_mode = "family"
IF dummyFavorites = YY
SETTEMP FavSectnExists = NN
GOSUB AddToFavorites ;in favorite.dat
SETTEMP ReAdd = 99
ELSE
GOSUB ReplaceFavorites
IF FavBuild <> ""
BUSY 1
ARGUMENT "Please hold on now while the wizard constructs the new favorites pages! Be patient."
SETTEMP favoritesVarRoot = ""
GOSUB BuildFamFavoritesPages
BUILDLINKS
SETTEMP FavBuild = ""
BUSY 0
ENDIF
ENDIF
ENDIF
IF sectionName = 3
SETTEMP pers_fam_mode = "family"
SETTEMP pastimeVarRoot = ""
IF dummyPastimes = YY
SETTEMP PstmSectnExist = NN
GOSUB AddToPastimes ;in pastime.dat
SETTEMP ReAdd = 99
ELSE
SETTEMP PastimesBuild = ""
GOSUB ReplacePastimeOrActivity ;in pastime.dat
IF PastimesBuild <> ""
GOSUB BuildPastimePages
BUILDLINKS
SETTEMP PastimesBuild = ""
ENDIF
ENDIF
ENDIF
IF sectionName = 4
SETTEMP notionVarRoot = "" ;not used for family notions
SETTEMP pers_fam_mode = "family"
IF dummyNotions = YY
SETTEMP NotnSectnExists = NN
GOSUB AddToNotions ;in notions.dat
SETTEMP ReAdd = 99
ELSE
GOSUB ReplaceANotion
IF NotionBuild <> ""
BUSY 1
ARGUMENT "Please hold on now while the wizard constructs the new pages! Be patient."
GOSUB BuildFamNotionPages
BUILDLINKS
SETTEMP NotionBuild = ""
BUSY 0
ENDIF
ENDIF
ENDIF
IF sectionName = 5
GOSUB AddToNews ;in newspage.dat
ENDIF
IF sectionName = 6
GOSUB AddOrEditMailBook ;in emails.dat
ENDIF
;xxxxxxx SET CHANGE MODE CHOICES xxxxxxxxxxx
[SetChgMode]
GOSUB SetCommonText
BUSY 1
ARGUMENT wizText
SETTEMP PRS = "" ;prompt array
SETTEMP DIS = "" ;dispatch array
SETTEMP TXA = "" ;text array
SETTEMP PRF1 = "Change info for a family &member"
SETTEMP PRN1 = 1
SETTEMP PRT1 = "\n FAMILY MEMBER INFO\nChoose this item to change the information for one of the family members already in your Web site.\n\nYou also use this item to add to the personal pages for a family member, or to make changes to those pages."
IF hasFavorites = 1
SETTEMP PRF2 = "&Favorites section"
SETTEMP PRN2 = 2
SETTEMP PRT2 = favDescX
ELSE
SETTEMP PRF2 = ""
SETTEMP PRN2 = ""
SETTEMP PRT2 = ""
ENDIF
IF hasPastimes = 1
SETTEMP PRF3 = "&Interests section"
SETTEMP PRN3 = 3
SETTEMP PRT3 = pasDescX
ELSE
SETTEMP PRF3 = ""
SETTEMP PRN3 = ""
SETTEMP PRT3 = ""
ENDIF
IF hasNotions = 1
SETTEMP PRF4 = "N&otions section"
SETTEMP PRN4 = 4
SETTEMP PRT4 = notnDescX
ELSE
SETTEMP PRF4 = ""
SETTEMP PRN4 = ""
SETTEMP PRT4 = ""
ENDIF
IF hasNews = 1
SETTEMP PRF5 = "Ne&ws section"
SETTEMP PRN5 = 5
SETTEMP PRT5 = newsDescX
ELSE
SETTEMP PRF5 = ""
SETTEMP PRN5 = ""
SETTEMP PRT5 = ""
ENDIF
IF hasMailBook = 1
SETTEMP PRF6 = "&E-Mail Directory"
SETTEMP PRN6 = 6
SETTEMP PRT6 = mailDescX
ELSE
SETTEMP PRF6 = ""
SETTEMP PRN6 = ""
SETTEMP PRT6 = ""
ENDIF
SETTEMP PRF7 = ""
SETTEMP PRN7 = ""
SETTEMP PRT7 = ""
SETTEMP fieldRootName = "PRF"
SETTEMP nTotalFields = 7
SETTEMP reflectRootName = "PRN"
GOSUB CompactFields ;squeeze out the empties
SETTEMP fieldRootName = "PRT"
SETTEMP nTotalFields = 7
GOSUB CompactFields
SETTEMP dspt = ""
SETTEMP arrayelement( dspt 1 ) = PRN1
SETTEMP arrayelement( dspt 2 ) = PRN2
SETTEMP arrayelement( dspt 3 ) = PRN3
SETTEMP arrayelement( dspt 4 ) = PRN4
SETTEMP arrayelement( dspt 5 ) = PRN5
SETTEMP arrayelement( dspt 6 ) = PRN6
SETTEMP ReEdit = subtract( nField 1 ) ;variable used in CompactFields
BUSY 0
;xxxxxxxxxxxxxxxxxxx REPLACE FAMILY PHOTO xxxxxxxxxxxxxxxxxxx
[ChangeFamilyPhoto] ; get new familyPhoto
SETTEMP junk = "The ",familyLastName," Family Photo"
COPY newPhoto = familyPhoto
IF havePhotographs = NN
SETTEMP temp = NN
BACKSTOP
PAGE
TYPE RADIOBUTTONS
WIZPIC wizpics\wizphoto.gif
DESCRIPTION Do you have digital photographs yet? The last time the wizard asked, you did not.\n\nIf you now have photos that have been scanned or taken with a digital camera, choose YES to pick one now. If you don't have digital photos, choose NO to pick from the standard pictures.
NAME temp
ARGUMENT "No. I &don't have digital photos yet"@No
ARGUMENT "&Yes. I have my own photos now"@Yes
SET havePhotographs = temp
ENDIF
IF havePhotographs = NN
BACKSTOP
GOSUB GetFamPlaceholderPix
ELSE
BACKSTOP
PAGE
NOSPELLCHECK
WIZPIC wizpics\wizfm128.gif
DESCRIPTION_RE "NEW HOME PAGE PHOTO Pick a new picture to appear on the home page, and other family pages in the site. It can be decorative (not a family photo), a photo of the whole family, or a picture of certain 'featured' family members.\n\nIdeally, it should show the entire family, but you may want to use a photo showing only the children, as an example."
TYPE PICTUREANDCAPTION
NAME newPhoto
PROMPT
ARGUMENT @junk
ENDIF
IF newPhoto <> familyPhoto
BUSY 1
ARGUMENT "Please wait a moment while the wizard changes your family photo throughout the Web site."
IF arrayelement( ProjNameList temp ) <> ProjectFile
IF temp > 1
SETTEMP temp = subtract( nFamilies 1 )
GOTO LocateInList
ENDIF
ENDIF
;xxxxxxxxxxxxx variables for add/change mode xxxxxxxxxxxxxxxxxxxx
[SetCommonText]
SETTEMP wizText = "Hold on for a moment while the wizard takes stock of your present Web site."
SETTEMP favDescX = "\n FAMILY FAVORITES\nThis is a section on your family Web site to share some of your family's favorite things with others by telling about them.\n\nYou can include your favorite places to shop, dine, and vacation."
SETTEMP pasDescX = "\n FAMILY INTERESTS\nIn this section you enter information about how your family members like to spend their time.\n\nThis section actually includes both family pastimes and family activities."
SETTEMP notnDescX = " FAMILY NOTIONS!!\nIn this section you can share your views (political and otherwise) and outlooks with others. Notions are chosen from categories such as 'Humor', 'Political' and 'Generic'.\n\nHere's the spot to spread your opinions and stories across the Internet!"
SETTEMP newsDescX = "\n THE FAMILY NEWS\nA great use of the family Web site is to communicate with your family and friends in an easy and convenient way.\n\nThis section can contain a newsletter and various 'announcements' so you can spread the news easily."
SETTEMP mailDescX = "\n FAMILY E-MAIL LIST\nThis section is a page that lists names and E-Mail addresses for your family and friends.\n\nIt's a handy way for everyone to stay in touch, and you make it possible."
SETTEMP dlgPrmtX = "Choose a section of your Web site to ",method," from those listed below.\n\nYou can click on the radio button to show a brief description for that section in the box at the right."
;xxxxxxxxxxxxxxxxxxxxx SEE IF MEET FAMILY SECTION IS COMPETE AND FINISH xxxxxxxxxxxxxxxxxxxx
[CheckMeetFamilyComplete]
; check whether all family members have had information entered
GOSUB AllFamilyMembersEntered
IF temp <> YY
TITLE Homepage Expert - Incomplete Family Members
SETTEMP temp = YY
BACKSTOP
PAGE
WIZPIC wizpics\wizchooz.gif
NAME temp
TYPE RADIOBUTTONS
DESCRIPTION There are some family members with incomplete pages. You can fill those in now if you like. Or you can move on to something else and do that later.\n\nDo you want to fill in the remaining family member information now?
ARGUMENT "&Enter family member information"@Yes
ARGUMENT "&Skip this for now"@No
IF temp = YY
SETTEMP caption = "Select a family member from the list shown below. The list shows only those with incomplete information."
; pick a family member to do
GOSUB PickAFamilyMemberWithNoInfo ; nSel = index of family member to get
GOSUB SetMemberTempVars ;set the vars we do have
GOSUB InputMemberDetails
; build page for this member
IF PageOrSite = "page"
SETTEMP plural = ""
ELSE
SETTEMP plural = "s"
ENDIF
BUSY 1
ARGUMENT "The wizard will now build the page",plural," for ",name,". Please be patient for a moment."
GOSUB BuildNthFamilyMember
BUSY 0
GOTO CheckMeetFamilyComplete ;loop around
ENDIF
ENDIF
[CheckOtherMissingSections]
; see if any other sections were incomplete and offer to do them
